library(tidyverse)
library(caret)
library(lattice)
# Get barstool data off github
job_post <- read_csv("https://raw.githubusercontent.com/luizmalpele/StatsLearningProject/master/data/fake_job_postings.csv?token=ANQHB6TNXQAFKHFJBS6F35S6SNMZ4")
Warning in .Internal(eval(substitute(expr), envir, enclos)) :
closing unused connection 4 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Warning in .Internal(eval(substitute(expr), envir, enclos)) :
closing unused connection 3 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Parsed with column specification:
cols(
job_id = [32mcol_double()[39m,
title = [31mcol_character()[39m,
location = [31mcol_character()[39m,
department = [31mcol_character()[39m,
salary_range = [31mcol_character()[39m,
company_profile = [31mcol_character()[39m,
description = [31mcol_character()[39m,
requirements = [31mcol_character()[39m,
benefits = [31mcol_character()[39m,
telecommuting = [32mcol_double()[39m,
has_company_logo = [32mcol_double()[39m,
has_questions = [32mcol_double()[39m,
employment_type = [31mcol_character()[39m,
required_experience = [31mcol_character()[39m,
required_education = [31mcol_character()[39m,
industry = [31mcol_character()[39m,
`function` = [31mcol_character()[39m,
fraudulent = [32mcol_double()[39m
)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShjYXJldCkNCmxpYnJhcnkobGF0dGljZSkNCg0KIyBHZXQgYmFyc3Rvb2wgZGF0YSBvZmYgZ2l0aHViDQpqb2JfcG9zdCA8LSByZWFkX2NzdigiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL2x1aXptYWxwZWxlL1N0YXRzTGVhcm5pbmdQcm9qZWN0L21hc3Rlci9kYXRhL2Zha2Vfam9iX3Bvc3RpbmdzLmNzdj90b2tlbj1BTlFIQjZUTlhRQUZLSEZKQlM2RjM1UzZTTk1aNCIpDQpgYGANCg0KYGBge3J9DQpqb2JfcG9zdA0KYGBgDQoNCg==